Public Class frmReGnrt

  Public Sub mPrInit(ByVal aIntTblId As Integer)

  End Sub

  Private Sub cmdSelectTableName_Click _
                (ByVal sender As System.Object _
               , ByVal e As System.EventArgs _
               ) Handles cmdSelectTableName.Click

    Dim lIntTableNameLength As Integer = 0

    Dim lObjFrmTableNameSelection As New frmTableNameAbbreviation
    lObjFrmTableNameSelection.Text = "Select Table Name"

    lObjFrmTableNameSelection.ShowDialog()

    lIntTableNameLength = lObjFrmTableNameSelection.mStrColumnName.Length
    If lIntTableNameLength <> 0 Then
      'txtNewTableName.Text = cboClntSrvrIndc.Text & "_" & _
      '                        UCase(lObjFrmTableNameSelection.mStrColumnName. _
      '                        Substring(0, lIntTableNameLength - 1))

      txtNewTableName.Text = "TRDX_" + UCase(lObjFrmTableNameSelection.mStrColumnName. _
                                                    Substring(0, lIntTableNameLength - 1))

    End If
  End Sub

End Class